home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / cellular / cell2.tex < prev    next >
Encoding:
Text File  |  1989-11-22  |  5.8 KB  |  217 lines
  1. % File:       TeX Inputs Cell2.tex
  2. % Author:     J E Pittman
  3. % Bitnet:     JEPTeX@TAMVenus
  4. % Internet:   JEPTeX@Venus.TAMU.EDU
  5. % Date:       November 8, 1988
  6. %
  7. % Prepare to scan the data, taking notes as to span sizes, row and 
  8. % column dimensions, et cetera.
  9. %
  10. \catcode`_=11 % Used to protect local control sequence names.
  11. %
  12. % The span info tokens contain sets of entries of the form \process 
  13. % {position}{number}{dimension}, where position is the terminal column 
  14. % or row, number is the number of columns or rows leading into the 
  15. % column or row, and dimension is the size of the information.
  16. % 
  17. \declaretoks\column_span_info
  18. \column_span_info={}%
  19. \declaretoks\row_span_info
  20. \row_span_info={}%
  21. %
  22. \let\process=\relax
  23. %
  24. \declarecount\column_number
  25. \column_number=0
  26. %
  27. % Create a column information entry and put the user's specifications 
  28. % into it.
  29. %
  30. \def\column#1{\relax
  31.    \advance\column_number \by 1
  32.    \last_column=\column_number
  33.    \get_column_number_data
  34.    \add_column_number_data {#1}%
  35.    \ignorespaces
  36.    }%
  37. %
  38. \declarecount\row_number
  39. \row_number=0
  40. %
  41. % Same as \column.
  42. %
  43. \def\row#1{\relax
  44.    \advance\row_number \by 1
  45.    \message{Scanning row \the\row_number.}%
  46.    \last_row=\row_number
  47.    \everyrow
  48.    \get_row_number_data
  49.    \add_row_number_data {#1}%
  50.    \column_number=0
  51.    \ignorespaces
  52.    }%
  53. %
  54. % \blank is used to generate a cell without a border or data.  In this 
  55. % context, all it does is absorb merges.
  56. %
  57. \def\blank{\relax
  58.    \advance\column_number \by 1
  59.    \if\column_number>\last_column
  60.       \advance\column_number \by -1
  61.       \column{}%
  62.    \fi
  63.    \everycolumn
  64.    \get_column_number_data
  65.    \ifnum\merge_rows>1
  66.       \add_column_number_data {\merge_rows=0\relax}%
  67.    \fi
  68.    \merge_columns=0
  69.    }%
  70. %
  71. % \cell is used to generate a normal, ruled cell.  In this context, it 
  72. % merely measures the cell and makes the appropriate notes.
  73. %
  74. \def\cell#1{\relax
  75.    \advance\column_number \by 1
  76.    \if\column_number>\last_column
  77.       \advance\column_number \by -1
  78.       \column{}%
  79.    \fi
  80.    \everycolumn
  81.    \get_column_number_data
  82. %
  83. % Typeset the information into temp box.
  84. %
  85.    \setbox\temp_box=\vbox \bgroup
  86.       \begingroup
  87.          \ifnum\merge_rows>0
  88.             \advance\row_number \by -\merge_rows
  89.             \get_row_number_data
  90.          \fi
  91.          \vskip \topborderskip
  92.          \endgroup
  93.       \hbox \bgroup
  94.          \begingroup
  95.             \ifnum\merge_columns>0
  96.                \advance\column_number \by -\merge_columns
  97.                \get_column_number_data
  98.             \fi
  99.             \hskip \leftborderskip
  100.             \endgroup
  101.          #1\vphantom{)}%
  102.          \hskip \rightborderskip
  103.          \egroup
  104.       \vskip \bottomborderskip
  105.       \egroup
  106. %
  107. % If it is a row merger, record it for later processing.
  108. %
  109.    \ifnum \merge_rows>0
  110.       \edef\temp{\process
  111.          {\the\merge_rows}{\the\ht\temp_box}{\the\row_number}%
  112.          \the\row_span_info
  113.          }%
  114.       \x_after\row_span_info\x_after=\x_after{\temp}%
  115. %     \message{\string\row_span_info=\the\row_span_info}% debug
  116.       \add_column_number_data {\merge_rows=0\relax}%
  117.    \else
  118. %
  119. % Not a merger, record the height if max.
  120. %
  121.       \ifdim\ht\temp_box>\rowheight
  122.          \let\info=\relax
  123.          \edef\temp{\the\row_number>\info
  124.                {\rowheight=\the\ht\temp_box\relax}}%
  125.          \let\info=\row_info
  126.          \x_after \add_data \temp
  127. %        \message{\string\row_info=\the\row_info}% debug
  128.          \rowheight=\ht\temp_box
  129.       \fi
  130.    \fi
  131. %
  132. % Same as above for column merger and width.
  133. %
  134.    \ifnum \merge_columns>0
  135.       \edef\temp{\process
  136.          {\the\merge_columns}{\the\wd\temp_box}{\the\column_number}%
  137.          \the\column_span_info
  138.          }%
  139.       \x_after\column_span_info\x_after=\x_after{\temp}%
  140. %     \message{\string\column_span_info=\the\column_span_info}% debug
  141.       \merge_columns=0
  142.    \else
  143.       \ifdim\wd\temp_box>\columnwidth
  144.          \let\info=\relax
  145.          \edef\temp{\the\column_number>\info
  146.                {\columnwidth=\the\wd\temp_box\relax}}%
  147.          \let\info=\column_info
  148.          \x_after \add_data \temp
  149. %        \message{\string\column_info=\the\column_info}% debug
  150.       \fi
  151.    \fi
  152.    }%
  153. %
  154. % \mergeright specifies that the corresponding position is to be 
  155. % merged with the cell to its right.
  156. %
  157. \def\mergeright{\relax
  158.    \advance\column_number \by 1
  159.    \if\column_number>\last_column
  160.       \advance\column_number \by -1
  161.       \column{}%
  162.    \fi
  163.    \everycolumn
  164.    \get_column_number_data
  165.    \advance\merge_columns \by 1
  166. %
  167. % Cancel a row merge, if present.
  168. %
  169.    \ifnum\merge_rows>1
  170.       \add_column_number_data {\merge_rows=0\relax}%
  171.    \fi
  172.    }%
  173. %
  174. % Same as \mergeright, except down.
  175. %
  176. \def\mergedown{\relax
  177.    \advance\column_number \by 1
  178.    \if\column_number>\last_column
  179.       \advance\column_number \by -1
  180.       \column{}%
  181.    \fi
  182.    \everycolumn
  183.    \get_column_number_data
  184.    \add_column_number_data {\advance\merge_rows \by 1\relax}%
  185.    \merge_columns=0
  186.    }%
  187. %
  188. % The horizontal and vertical stretch macros allow the user to specify 
  189. % an explicit stretch that will subsequently be processed like a span.  
  190. % User-specified stretches are processed after span caused ones.  The 
  191. % parameters are the starting column/row, the ending column/row, and 
  192. % the size of the stretch.
  193. %
  194. \def\horizontalstretch#1#2#3{\relax
  195.    \temp_count=#2\relax
  196.    \advance\temp_count \by -#1\relax
  197.    \edef\temp{\the\column_span_info\process{\the\temp_count}{#3}{#2}}%
  198.    \x_after \column_span_info\x_after=\x_after{\temp}%
  199. %  \message{\string\column_span_info=\the\column_span_info}% debug
  200.    \ignorespaces
  201.    }%
  202. %
  203. \def\verticalstretch#1#2#3{\relax
  204.    \temp_count=#2\relax
  205.    \advance\temp_count \by -#1\relax
  206.    \edef\temp{\the\row_span_info\process{\the\temp_count}{#3}{#2}}%
  207.    \x_after \row_span_info\x_after=\x_after{\temp}%
  208. %  \message{\string\row_span_info=\the\row_span_info}% debug
  209.    \ignorespaces
  210.    }%
  211. %
  212. \def\noalign#1{\ignorespaces}% don't do anything for the first pass
  213. %
  214. \catcode`_=8 % Return to normal.
  215. %
  216. \endinput
  217.